home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_372_PlanButton behave Subdivision.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  1.4 KB  |  54 lines
  1. property mySprite, myType, myName, myNameDown, myNameOver, myNameInactive, Active, ancestor, FloorPlanDisplaySprite, tileSprite, myTileState
  2.  
  3. on beginSprite me
  4.   global gActorListMan
  5.   mySprite = me.spriteNum
  6.   myName = (the member of sprite mySprite).name
  7.   myNameDown = word 1 of myName && "down"
  8.   myNameOver = word 1 of myName && "over"
  9.   myNameInactive = word 1 of myName && "Inactive"
  10.   Active = 1
  11.   myTileState = #off
  12.   lookForToolTip = 1
  13.   ancestor = new(script("FourStatebuttonActions"), lookForToolTip)
  14.   myType = #planButton
  15.   registerSprite(gActorListMan, mySprite)
  16. end
  17.  
  18. on mouseUp me
  19.   global gClickSprite
  20.   if not Active then
  21.     exit
  22.   end if
  23.   if gClickSprite = mySprite then
  24.     if voidp(FloorPlanDisplaySprite) then
  25.       FloorPlanDisplaySprite = sendAllSprites(#sendSpriteNum, #FloorPlanDisplay)
  26.       tileSprite = sendAllSprites(#sendSpriteNum, #tileSprite)
  27.     end if
  28.     tileState = sendSprite(tileSprite, #getState)
  29.     doButtonUpClick(myType, 1)
  30.     if tileState = #on then
  31.     else
  32.       sendSprite(tileSprite, #turnOn)
  33.       TileName = sendAllSprites(#sendTileName, #FloorPlanDisplay)
  34.       sendSprite(tileSprite, #setTile, TileName)
  35.       myTileState = #on
  36.     end if
  37.   end if
  38. end
  39.  
  40. on getTileState me
  41.   return myTileState
  42. end
  43.  
  44. on endSprite me
  45.   global gActorListMan
  46.   unRegisterSprite(gActorListMan, mySprite)
  47. end
  48.  
  49. on sendSpriteNum me, aType
  50.   if aType = myType then
  51.     return mySprite
  52.   end if
  53. end
  54.